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-- MiniNub.Mesa 

— Edited by Sandman on May 19, 1978 4:24 PM 

DIRECTORY 

AltoFileDefs: FROM "al tof il edef s" USING [CFA, eofDA, FA], 
ControlDefs: FROM "control clef s" USING [ 

GetReturnLink, GlobalFrameHandle, NullGlobal Frame, StateVector] , 
CoreSwapDefs: FROM "coreswapdefs" USING [CAbort, CoreSwap], 
ImageDefs: FROM "imagedefs" USING [AddFileRequest, FileRequest], 
IODefs: FROM "iodefs" USING [CR, SP], 

LoaderDefs: FROM "loaderdefs" USING [Load, Loader, New, VersionMismatch], 
MiscDefs: FROM "miscdefs", 

ProcessDefs: FROM "processdef s" USING [Aborted], 
SegmentDefs: FROM "segmentdefs" USING [ 

FileSegmentHandle, LockFile, Read, ReleaseFile, UnlockFile], 
StreamDefs: FROM "streamdefs" USING [ 

CreateByteStream, GetFA, JumpToFA, Read, StreamHandle] , 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendString , EquivalentString] ; 

MiniNub: PROGRAM 

IMPORTS CoreSwapDefs, LoaderDefs, ProcessDefs, SegmentDefs, StreamDefs, StringDefs 
EXPORTS MiscDefs = 

BEGIN 

CallDebugger: PROCEDURE = 

BEGIN -- user's entry point to debugger 

state: ControlDefs .StateVector; 

state, stkptr <- 0; 

state. dest <- ControlDefs. GetReturnLink[] ; 

CoreSwapDefs .CoreSwap[expl icitcall , Estate]; 

RETURN 

END; 

BadFile: SIGNAL [name: STRING] - CODE; 

LoadNew: PROCEDURE [name: STRING, framelinks: BOOLEAN] RETURNS [PROGRAM] - 
BEGIN 

g: ControlDefs. GlobalFrameHandle; 
bed: SegmentDefs . FileSegmentHandle; 
bed <- LoaderDefs ,Load[name 

I BadFile, UNWIND => NULL; ANY -> ERROR BadFi le[name]] ; 
g «- LoaderDefs. New[bcd , framelinks, FALSE 

1 BadFile, LoaderDefs. VersionMismatch, UNWIND => NULL; 
ANY ■> ERROR BadFi 1 e[name]] ; 
RETURN[LOOPHOLE[g]] 
END; 

comcmRequest: short ImageDefs . FileRequest <- [ 
body: short[fill:, name: "Com. Cm."], * 
file: NIL, 

access: SegmentDefs. Read, 
link: ]; 

Done: SIGNAL - CODE; 

debug, start, command, framelinks: BOOLEAN; 

ProcessSwitches: PROCEDURE [s: STRING] ■ 
BEGIN 

i: CARDINAL; 

inverse: {this, next, no} <- no; 
FOR i IN [0. .s. length) DO 
SELECT s[i] FROM 

'd, 'D »> debug <- inverse it this; 
's, 'S ■> start <- inverse # this; 
'c, 'C *> command <- inverse # this; 
'1, 'L *> framelinks <- ~(inverse # this); 
'- s > inverse <- next; 
ENDCASE; 
inverse *■ IF inverse ■ next THEN this ELSE no; 
ENDLOOP; 
END; 

InitSwitches: PROCEDURE - 
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BEGIN command <- debug «- FALSE; framelinks ♦- start <- TRUE; END; 

GetToken: PROCEDURE [com: StreamDef s .StreamHandle, token, ext, switches: STRING] - 
BEGIN 
s: STRING; 
c: CHARACTER; 

token. length <- ext. length <- switches . length +• 0; 
s «- token; 
WHILE ~com.endof[com] DO 

SELECT (c <- com.get[com]) FROM 
IODefs.SP, IODefs.CR *> 

IF token. length // OR ext. length # OR switches . length # THEN RETURN; 
' . ■> s «- ext; 
' / => s «- switches; 

ENDCASE «> StringDefs.AppendChar[s, c]; 
ENDLOOP; 
RETURN 
END; 

cfa: AltoFileDefs.CFA; 

CommandLineCFA: PUBLIC PROCEDURE RETURNS [POINTER TO AltoFileDefs.CFA] - 
BEGIN 

RETURN[@cfa] 
END; 

LoadSystems: PROCEDURE ■ 
BEGIN 

user: PROGRAM; 
p: PROCESS; 
IF comcmRequest.f ile - NIL THEN 

BEGIN cfa.fp «- [[1 ,0 , 1 , 17777B, 177777B] , Al toFileDef s .eofDA] ; RETURN END; 
cfa.fp *- comcmRequest. f ile. fp; 
SegmentDef s . LockFile[ comcmRequest. file]; 
InitSwitches[]; 
Skiplmage[@cfa.fa]; 
IF debug THEN Cal !Debugger[]; 
DO 

InitSwitches[]; 

user <- LoadUser[@cfa.fa I Done «> EXIT]; 
IF debug THEN Cal !Debugger[]; 

IF start AND user # LOOPHOLE[ControlDef s .Nul lGlobal Frame] THEN 
BEGIN 

p <- FORK StartModule[user]; 
JOIN p; 
END; 
ENDLOOP; 
SegmentDefs.UnlockFile[comcmRequest ,f ile]; 
SegmentDef s . ReleaseFile[ comcmRequest.f ile]; 
END; 

StartModule: PROCEDURE [f: PROGRAM] - 
BEGIN 

START f [1 ProcessDefs. Aborted, CoreSwapDef s.CAbort => CONTINUE]; 
RETURN 
END; 

LoadUser: PROCEDURE [fa: POINTER TO Al toFi leDef s . FA] RETURNS [user: PROGRAM] * 
BEGIN OPEN IODefs, StreamDefs; 
com: StreamHandle; 
name: STRING «- [40]; 
ext: STRING «- [10]; 
switches: STRING <- [5]; 

com <- CreateByteStream[comcmRequest .f ile, Read]; 
BEGIN 

StreamDef s.JumpToFA[com, fa I ANY => GO TO finished]; 

GetToken[com, name, ext, switches]; 

IF name. length = THEN GO TO finished; 

IF ext. length ■ THEN ext <- "bed"; 

StringDef s. AppendChar[name, '.]; 

StringDef s. Ap pen dString[ name, ext]; 

StreamDef s .GetFA[com, fa]; 

com.destroy[com]; 

Proce ssSw itches [switches ]; 

IF command THEN 
BEGIN 
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ProcessSw itches [name]; 

user «- L00PH0LE[ControlDefs.NunG"loba1Frame]; 
END 
ELSE user <- LoadNew[name, frame! inks]; 
EXITS 

finished -> BEGIN com. destroy[com] ; SIGNAL Done; END; 
END; 
END; 

Skiplmage: PROCEDURE [fa: POINTER TO Al toFileDef s . FA] - 
BEGIN OPEN IODefs, StreamDefs; 
com: StreamHandle; 
name: STRING «- [40]; 
ext: STRING <- [10]; 
switches: STRING <- [5]; 

com <- CreateByteStream[comcmRequest .f ile, Read]; 
StreamDefs. GetFA[com, fa]; 
GetToken[com, name, ext, switches]; 

IF StringDefs.Equiva1entString[ext, "image"] THEN StreamDefs. GetFA[com, fa]; 
com.destroy[com] ; 
ProcessSwitches[ switches]; 
END; 

-- Main body 

ImageDefs.AddFi1eRequest[@comcmRequest]; 

STOP; 

START LoaderDefs. Loader; -- make Loader fill in SD 
LoadSystems[! CoreSwapDef s .CAbort -> CONTINUE]; 

END... 



